home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
thor25_arexx.lha
/
BBSRead
/
DefaultNames.br
< prev
next >
Wrap
Text File
|
1995-09-06
|
683b
|
37 lines
/* $VER: DefaultNames.br 3.1 (31.3.95)
*
* Sets all bbses to use globaly defined name, address and phone number.
*
* Script by: Eivind Nordseth, Ultima Thule Software.
*/
/* trace results */
parse arg argument
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address BBSREAD
GETBBSLIST stem BBSLIST
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
do n=1 to BBSLIST.COUNT
say 'Configuring bbs:' BBSLIST.n
CONFIGBBS '"' || BBSLIST.n || '"' USER '""' STREET '""' ADDR '""' COUNTRY '""' PHONE '""'
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
end